Aminet 28/Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso/Aminet/comm/maxs/MaxRexx.lha/MAXREXX/Examples/ExampleDoor.Rexx

OS/2 REXX Batch file | 1980-03-10 | 1.1 KB | 62 lines

/*MaxRexx Example Door (MIN MAXREXX VERSION 0.9b)*/
line=arg(1)
port='ADDRESS MAXSERVE'line
interpret port
OPTIONS RESULTS
$NEWLINE
$FCOLOUR 1
$PRINTLN 'Red Text'
$FCOLOUR 2
$PRINTLN 'Green Text'
$FCOLOUR 3
$PRINTLN 'Yellow Text'
$FCOLOUR 4
$PRINTLN 'Blue Text'
$FCOLOUR 5
$PRINTLN 'Pink Text'
$FCOLOUR 6
$PRINTLN 'Cyan Text'
$FCOLOUR 7
$PRINTLN 'White Text'
$NEWLINE
$PRINT 'This'
$NEWLINE
$PRINT '     should'
$NEWLINE
$PRINT '            be'
$NEWLINE
$PRINT '               across'
$NEWLINE
$PRINT '                      several'
$NEWLINE
$PRINT '                              lines.'
$NEWLINE
$PRINTLN 'Press ANY key to clear the screen.'
$HOTKEY
$CLS
$FCOLOUR 1
$PRINTLN 'Please enter some text'
$PRINTLN '[..........]'
$PRINT 'H'
$INPUT 10
$PRINTLN 'You entered: 'result
$NEWLINE
$FCOLOUR 3
$USERSTR 1
$PRINTLN 'I bet your name is... 'result' :)'
$USERVAL 1
$PRINTLN 'and your access level is: 'result
$NEWLINE
$FCOLOUR 7
$BCOLOUR 0
$PRINTLN 'This should be black on white!'
$FCOLOUR 7
$BCOLOUR 0
$PRINTLN 'Lets set the page flag!'
$PAGEFLAG 1
$PRINTLN 'OK lets leave a message!'
$MENUFUNC '16,0,NIL'
$PRINTLN 'BYE BYE'
$HOTKEY
$END